Imports Microsoft.ApplicationBlocks.Data.SqlHelper
Imports System.Data.SqlClient
Public Class ItemsDeOC
    Public Sub Generar(ByVal Cod_OC As Integer, ByVal Cod_Producto As Integer, ByVal Cantidad As Integer)
        ExecuteNonQuery(My.Settings.MiCadena, CommandType.StoredProcedure, "ItemDeOCGenerar", New SqlClient.SqlParameter("Cod_OC", Cod_OC), New SqlClient.SqlParameter("Cod_Producto", Cod_Producto), New SqlClient.SqlParameter("Cantidad", Cantidad))
    End Sub

    Public Function ObtenerFiltrados(ByVal Cod_OC As Integer)
        Dim DS As New DataSet
        DS = ExecuteDataset(My.Settings.MiCadena, CommandType.StoredProcedure, "ItemsDeOCObrenerFiltrados", New SqlParameter("@Cod_OC", Cod_OC))
        Return DS
    End Function

    Public Sub Modificar(ByVal Cod_OC As Integer, ByVal Cod_Producto As Integer, ByVal Cantidad As Integer, ByVal Ingresados As Integer)
        ExecuteNonQuery(My.Settings.MiCadena, CommandType.StoredProcedure, "ItemDeOCModificar", New SqlParameter("@Cod_OC", Cod_OC), New SqlParameter("@Cod_Producto", Cod_Producto), New SqlParameter("@Cantidad", Cantidad), New SqlParameter("@Ingresados", Ingresados))
    End Sub

    Public Sub Agregar(ByVal Cod_OC As Integer, ByVal Cod_Producto As Integer, ByVal Cantidad As Integer)
        ExecuteNonQuery(My.Settings.MiCadena, CommandType.StoredProcedure, "ItemDeOCAgregar", New SqlParameter("@Cod_OC", Cod_OC), New SqlParameter("@Cod_Producto", Cod_Producto), New SqlParameter("@Cantidad", Cantidad))
    End Sub

    Public Sub Eliminar(ByVal Cod_OC As Integer, ByVal Cod_Producto As Integer)
        ExecuteNonQuery(My.Settings.MiCadena, CommandType.StoredProcedure, "ItemDeOCEliminar", New SqlParameter("@Cod_OC", Cod_OC), New SqlParameter("@Cod_Producto", Cod_Producto))
    End Sub

End Class
